inherited rstAbonents: TrstAbonents
  HelpContext = 1141
  ActiveControl = TfraAddress1.NLSEdit
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1056#1077#1077#1089#1090#1088' '#1072#1073#1086#1085#1077#1085#1090#1086#1074
  Position = poMainFormCenter
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Splitter1: TSplitter
    Left = 569
  end
  inherited ToolBar1: TToolBar
    ButtonHeight = 358
    TabOrder = 2
  end
  inherited Panel1: TPanel
    Left = 574
    Width = 270
    Constraints.MaxWidth = 270
    TabOrder = 0
    inherited TfraAddress1: TfraAddress
      Top = 0
      Width = 270
      Height = 221
      inherited SearchBox: TGroupBox
        Width = 270
        Height = 221
        inherited SubPanel: TPanel
          Width = 266
          Height = 204
          inherited Label6: TLabel
            Left = 10
          end
          inherited Label5: TLabel
            Left = 52
          end
          inherited Label4: TLabel
            Left = 31
          end
          inherited Label3: TLabel
            Left = 56
          end
          inherited Label2: TLabel
            Left = 47
          end
          inherited Label1: TLabel
            Left = 28
          end
          inherited TownBox: TDBLookupComboboxEh
            Left = 84
            Width = 174
            DropDownBox.SpecRow.CellsText = ' ----'
            DropDownBox.SpecRow.Value = '-1'
            DropDownBox.SpecRow.Visible = True
          end
          inherited StreetBox: TDBLookupComboboxEh
            Left = 84
            Width = 174
          end
          inherited NLSEdit: TDBEditEh
            Left = 84
            Width = 174
          end
          inherited NameEdit: TDBEditEh
            Left = 84
            Width = 174
          end
          inherited HouseBox: TDBLookupComboboxEh
            Left = 84
            Width = 174
          end
          inherited FindBtn: TButton
            Top = 172
            Width = 71
            Action = aRefresh
            Caption = #1055#1086#1080#1089#1082
          end
          inherited ClearBtn: TButton
            Left = 84
            Top = 172
            Width = 71
            Hint = #1057#1073#1088#1086#1089#1080#1090#1100' '#1087#1072#1088#1072#1084#1077#1090#1088#1099' '#1087#1086#1080#1089#1082#1072
            OnClick = TfraAddress1ClearBtnClick
          end
          inherited AppartBox: TDBLookupComboboxEh
            Left = 84
            Width = 174
          end
          inherited AddBtn: TButton
            Left = 160
            Top = 172
            Width = 101
            OnClick = TfraAddress1AddBtnClick
          end
        end
      end
      inherited QStreets: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
        Container = dsContainer
      end
      inherited QHouses: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
        Container = dsContainer
      end
      inherited QTowns: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
        Container = dsContainer
      end
      inherited QApparts: TpFIBDataSet
        Transaction = trList
        UpdateTransaction = trList
        Container = dsContainer
      end
    end
    inherited GroupBox1: TGroupBox
      Top = 221
      Width = 270
      Height = 0
    end
    inherited TfraSubstanceInfo1: TfraSubstanceInfo
      Top = 221
      Width = 270
      Height = 348
      inherited TopPanel: TPanel
        Width = 270
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 348
        Width = 270
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Width = 270
        Height = 348
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Width = 262
            Height = 317
          end
        end
        inherited TSNote: TTabSheet
          TabVisible = True
          inherited dbmNote: TDBMemo
            Height = 317
            DataField = 'RNOTE'
            DataSource = dscRefer
          end
        end
      end
      inherited QSubstanceInfo: TpFIBDataSet
        SelectSQL.Strings = (
          'SELECT'
          '    RFIELD_NAME as NAME,'
          '    RFIELD_VALUE as VAL'
          'FROM'
          '    PROC_ABONENT_GET_PROP_LIST(:ID) ')
        Transaction = trRefer
        UpdateTransaction = trRefer
        DataSource = dscRefer
        Container = dsContainer
        Left = 113
        oFetchAll = True
      end
      inherited ds_QSubstanceInfo: TDataSource
        Left = 148
      end
    end
    object cbClosedLS: TDBCheckBoxEh
      Left = 86
      Top = 165
      Width = 97
      Height = 17
      AlwaysShowBorder = True
      Caption = #1047#1072#1082#1088#1099#1090#1099#1077' '#1051#1057
      Flat = True
      TabOrder = 3
      ValueChecked = '0'
      ValueUnchecked = '1'
    end
  end
  inherited Panel2: TPanel
    Width = 569
    TabOrder = 1
    inherited Splitter2: TSplitter
      Width = 569
    end
    inherited GroupBox2: TGroupBox
      Width = 569
      Caption = ' '#1059#1089#1083#1091#1075#1080' '#1072#1073#1086#1085#1077#1085#1090#1072' '
      inherited DetailGrid: TDBGridEh
        Width = 565
        DataSource = dscDetail
        OddRowColor = clInactiveCaptionText
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
        PopupMenu = pmOldDogovors
        UseMultiTitle = True
        VTitleMargin = 5
        OnDblClick = DetailGridDblClick
        OnGetCellParams = DetailGridGetCellParams
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOGOVOR_ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'SER_NAME'
            Footers = <>
            Width = 208
          end
          item
            EditButtons = <>
            FieldName = 'BALANCE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'SUPPLIER_NAME'
            Footers = <>
            Width = 242
          end>
      end
    end
    inherited Panel3: TPanel
      Width = 569
      inherited dbgRefer: TDBGridEh
        Width = 569
        AllowedOperations = []
        EditActions = [geaCopyEh]
        FooterRowCount = 1
        Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        PopupMenu = pmRefer
        SumList.Active = True
        OnKeyDown = dbgReferKeyDown
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RTOWN'
            Footer.Value = #1048#1090#1086#1075#1086':'
            Footers = <>
            Width = 146
          end
          item
            EditButtons = <>
            FieldName = 'RSTREET_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RHOUSE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RCORPS'
            Footers = <>
            Width = 52
          end
          item
            EditButtons = <>
            FieldName = 'RAPPARTS'
            Footer.ValueType = fvtCount
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RLETTER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RTENANT'
            Footer.FieldName = 'RTENANT'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'REXEMPTERS'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSALDO'
            Footer.FieldName = 'RSALDO'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNLS'
            Footers = <>
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'ROCCSQ'
            Footer.FieldName = 'ROCCSQ'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RZKX'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RPHONE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNOTE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RROOMS'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RABON_ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RCLIENT_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'SUPER'
            Footers = <>
            Visible = False
          end>
      end
    end
  end
  inherited shblActionList: TActionList
    inherited aDelete: TAction
      Visible = False
    end
    inherited aPost: TAction
      Visible = False
    end
    inherited aRollback: TAction
      Visible = False
    end
    object aMoveSaldo: TAction
      Caption = #1055#1077#1088#1077#1085#1077#1089#1090#1080' '#1089#1072#1083#1100#1076#1086' ...'
      Hint = #1055#1077#1088#1077#1085#1077#1089#1090#1080' '#1089#1072#1083#1100#1076#1086' '#1085#1072' '#1076#1088#1091#1075#1080#1077' '#1076#1086#1075#1086#1074#1086#1088#1072
      OnExecute = aMoveSaldoExecute
    end
    object aCharge: TAction
      Caption = #1053#1072#1095#1080#1089#1083#1080#1090#1100' '#1087#1086' '#1085#1072#1081#1076#1077#1085#1085#1099#1084
      Hint = #1053#1072#1095#1080#1089#1083#1080#1090#1100' '#1087#1086' '#1085#1072#1081#1076#1077#1085#1085#1099#1084' '#1072#1073#1086#1085#1077#1085#1090#1072#1084
      OnExecute = aChargeExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    RefreshSQL.Strings = (
      'SELECT'
      '    RABON_ID,'
      '    RNLS,'
      '    RTOWN,'
      '    RSTREET_NAME,'
      '    RHOUSE,'
      '    RCORPS,'
      '    RAPPARTS,'
      '    RLETTER,'
      '    RNAME,'
      '    RTENANT,'
      '    REXEMPTERS,'
      '    RSALDO,'
      '    ROCCSQ,'
      '    RZKX,'
      '    RPHONE,'
      '    RROOMS,'
      '    RNOTE,'
      '    RCLIENT_ID,'
      '    SUPER,'
      '    RABON_ID as id,'
      '    rrealtytype'
      'FROM'
      '    PROC_V_ABONENTS(:PNSL,'
      '    :PTOWN_ID,'
      '    :PSTREET_ID,'
      '    :PHOUSE,'
      '    :PAPPARTS,'
      '    :PNAME,'
      '    :PACTIVE,'
      '    :PCORPS,'
      '    :PLETTER,'
      
        '    coalesce(:PADD_PARAMS, cast('#39#39' as varchar(2000)))||'#39'|abonent' +
        '_id='#39'||cast(:RABON_ID as varchar(20))) '
      '')
    SelectSQL.Strings = (
      'SELECT'
      '    RABON_ID,'
      '    RNLS,'
      '    RTOWN,'
      '    RSTREET_NAME,'
      '    RHOUSE,'
      '    RCORPS,'
      '    RAPPARTS,'
      '    RLETTER,'
      '    RNAME,'
      '    RTENANT,'
      '    REXEMPTERS,'
      '    RSALDO,'
      '    ROCCSQ,'
      '    RZKX,'
      '    RPHONE,'
      '    RROOMS,'
      '    RNOTE,'
      '    RCLIENT_ID,'
      '    SUPER,'
      
        '    RTOWN||'#39' '#39'||RSTREET_NAME||'#39' '#1076'.'#39'||RHOUSE||coalesce('#39#1082#39'||RCORP' +
        'S,'#39#39')||coalesce('#39' '#1082#1074'.'#39'||RAPPARTS,'#39#39')||coalesce(RLETTER, '#39#39') as a' +
        'ddress,'
      '    cast(null as varchar(1000)) as notes,'
      '    RABON_ID as id,'
      '    rrealtytype'
      'FROM'
      '    PROC_V_ABONENTS(:PNSL,'
      '    :PTOWN_ID,'
      '    :PSTREET_ID,'
      '    :PHOUSE,'
      '    :PAPPARTS,'
      '    :PNAME,'
      '    :PACTIVE,'
      '    :PCORPS,'
      '    :PLETTER,'
      '    :PADD_PARAMS) '
      'order by '
      '    RTOWN,'
      '    RSTREET_NAME,'
      '    RHOUSE,'
      '    RCORPS,'
      '    RAPPARTS,'
      '    RLETTER')
    AutoUpdateOptions.UpdateTableName = 'PROC_V_ABONENTS(:PNSL'
    AutoUpdateOptions.KeyFields = 'RABON_ID'
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Top = 284
    object dsReferRABON_ID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 5
      FieldName = 'RABON_ID'
      Visible = False
    end
    object dsReferRNLS: TFIBStringField
      DisplayLabel = #1051#1080#1094'. '#1089#1095#1077#1090
      DisplayWidth = 10
      FieldName = 'RNLS'
      EmptyStrToNull = True
    end
    object dsReferRTOWN: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1053#1072#1089'. '#1087#1091#1085#1082#1090
      DisplayWidth = 15
      FieldName = 'RTOWN'
      Size = 60
      EmptyStrToNull = True
    end
    object dsReferRSTREET_NAME: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1059#1083#1080#1094#1072
      DisplayWidth = 20
      FieldName = 'RSTREET_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRHOUSE: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#8470' '#1079#1076#1072#1085#1080#1103
      DisplayWidth = 8
      FieldName = 'RHOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferRCORPS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1082#1086#1088#1087'.'
      DisplayWidth = 4
      FieldName = 'RCORPS'
      Size = 3
      EmptyStrToNull = True
    end
    object dsReferRAPPARTS: TFIBIntegerField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#8470' '#1082#1074'.'
      DisplayWidth = 4
      FieldName = 'RAPPARTS'
    end
    object dsReferRLETTER: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1083#1080#1090'.'
      FieldName = 'RLETTER'
      Size = 5
      EmptyStrToNull = True
    end
    object dsReferRNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 30
      FieldName = 'RNAME'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReferRTENANT: TFIBIntegerField
      DisplayLabel = #1046#1080#1083#1100#1094#1086#1074
      DisplayWidth = 8
      FieldName = 'RTENANT'
    end
    object dsReferREXEMPTERS: TFIBIntegerField
      DisplayLabel = #1051#1100#1075#1086#1090#1085#1080#1082#1086#1074
      FieldName = 'REXEMPTERS'
    end
    object dsReferRSALDO: TFIBBCDField
      DisplayLabel = #1057#1072#1083#1100#1076#1086
      DisplayWidth = 6
      FieldName = 'RSALDO'
      Size = 2
      RoundByScale = True
    end
    object dsReferROCCSQ: TFIBBCDField
      DisplayLabel = #1055#1083#1086#1097#1072#1076#1100
      DisplayWidth = 7
      FieldName = 'ROCCSQ'
      Size = 3
      RoundByScale = True
    end
    object dsReferRZKX: TFIBStringField
      DisplayLabel = #1059#1095#1072#1089#1090#1086#1082
      DisplayWidth = 10
      FieldName = 'RZKX'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferRPHONE: TFIBStringField
      DisplayLabel = #1058#1077#1083#1077#1092#1086#1085
      DisplayWidth = 10
      FieldName = 'RPHONE'
      EmptyStrToNull = True
    end
    object dsReferRNOTE: TFIBStringField
      DisplayLabel = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'RNOTE'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReferRROOMS: TFIBIntegerField
      DisplayLabel = #1050#1086#1084#1085#1072#1090
      DisplayWidth = 6
      FieldName = 'RROOMS'
    end
    object dsReferRCLIENT_ID: TFIBIntegerField
      FieldName = 'RCLIENT_ID'
      Visible = False
    end
    object dsReferSUPER: TFIBIntegerField
      DisplayLabel = '_SUPER'
      FieldName = 'SUPER'
      Visible = False
    end
    object dsReferADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 224
      EmptyStrToNull = True
    end
    object dsReferNOTES: TFIBStringField
      FieldName = 'NOTES'
      Size = 1000
      EmptyStrToNull = True
    end
    object dsReferID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsReferRREALTYTYPE: TFIBIntegerField
      FieldName = 'RREALTYTYPE'
    end
  end
  inherited dscRefer: TDataSource
    Left = 80
    Top = 284
  end
  object dsDetail: TpFIBDataSet [8]
    SelectSQL.Strings = (
      'SELECT'
      '    DOGOVOR_ID,'
      '    SER_NAME,'
      '    BALANCE,'
      '    SUPPLIER_NAME,'
      '    RGROUP_ID,'
      '    RSUPPLIER_ID,'
      '    IS_ACTIVE'
      'FROM'
      '    PROC_ABONDOGOVORS_GET_S(:ID) ')
    Transaction = trRefer
    Database = MAINDM.pMainDatabase
    DataSource = dscRefer
    Container = dsContainer
    Left = 144
    Top = 517
    poSQLINT64ToBCD = True
    WaitEndMasterScroll = True
    dcForceOpen = True
    oFetchAll = True
    object dsDetailDOGOVOR_ID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 10
      FieldName = 'DOGOVOR_ID'
    end
    object dsDetailSER_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 40
      FieldName = 'SER_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsDetailBALANCE: TFIBBCDField
      DisplayLabel = #1041#1072#1083#1072#1085#1089
      DisplayWidth = 10
      FieldName = 'BALANCE'
      Size = 2
      RoundByScale = True
    end
    object dsDetailSUPPLIER_NAME: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082' / '#1046#1054
      DisplayWidth = 60
      FieldName = 'SUPPLIER_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object dsDetailRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
      Visible = False
    end
    object dsDetailRSUPPLIER_ID: TFIBIntegerField
      FieldName = 'RSUPPLIER_ID'
      Visible = False
    end
    object dsDetailIS_ACTIVE: TFIBIntegerField
      FieldName = 'IS_ACTIVE'
    end
  end
  object dscDetail: TDataSource [9]
    DataSet = dsDetail
    Left = 180
    Top = 517
  end
  inherited Timer1: TTimer
    Top = 193
  end
  object dsContainer: TDataSetsContainer [12]
    Left = 548
    Top = 393
  end
  inherited PropStorage: TPropStorageEh
    Section = 'rstAbonents'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel1.TfraSubstanceInfo1.PageControl.<P>.TabIndex'
      'Panel2.GroupBox2.<P>.Height'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.ColumnsIndex'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.<ForAllItems>.Width'
      'Panel2.Panel3.dbgRefer.<P>.Columns.ColumnsIndex'
      'Panel2.Panel3.dbgRefer.<P>.Columns.<ForAllItems>.Width')
  end
  object pmOldDogovors: TPopupMenu [18]
    Left = 404
    Top = 519
    object N1: TMenuItem
      Action = aMoveSaldo
    end
  end
  object pmRefer: TPopupMenu [19]
    Left = 176
    Top = 221
    object N2: TMenuItem
      Action = aCharge
    end
  end
end
